home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / GLOW11.EXE / aliases.ini < prev    next >
INI File  |  1997-02-18  |  7KB  |  215 lines
  1. [Aliases]
  2. n0=/wavget /run C:\GLOW\WAVGET32.EXE
  3. n1=/s /sound $1.wav *2 < $1.wav>
  4. n2=/m /sound $1.mid *2 < $1.mid>
  5. n3=2/ctrl-k 2 
  6. n4=/F1 /flood 50 5 2 
  7. n5=/showglow /play c:\glow\txt\glown.txt 100ms
  8. n6=/candy /play c:\glow\txt\candy.txt 100ms
  9. n7=/candy2 /play c:\glow\txt\candy2.txt 100ms
  10. n8=/cigg /play c:\glow\txt\cigg.txt 100ms
  11. n9=/love /play c:\glow\txt\love.txt 100ms
  12. n10=/flag /play c:\glow\txt\flag.txt 100ms
  13. n11=/B&B /play c:\glow\txt\b&b.txt 100ms
  14. n12=/tigger /play c:\glow\txt\tigger.txt 100ms
  15. n13=/wolf /play c:\glow\txt\wolf.txt 100ms
  16. n14=/hugs /play c:\glow\txt\hugs.txt 100ms
  17. n15=/grrrr /play c:\glow\txt\grrrr.txt 100ms
  18. n16=/glow4 /play c:\glow\txt\glow4.txt 100ms
  19. n17=/glow3 /play c:\glow\txt\glow3.txt 100ms
  20. n18=/glow2 /play c:\glow\txt\glow2.txt 100ms
  21. n19=/glow1 /play c:\glow\txt\glow1.txt 100ms
  22. n20=/glow /play c:\glow\txt\glow.txt 100ms
  23. n21=/jusglow /play c:\glow\txt\jusglow.txt 100ms
  24. n22=/bunnyhi /play c:\glow\txt\bunnyhi.txt 100ms
  25. n23=/snoopy /play c:\glow\txt\snoopy.txt 100ms
  26. n24=/fuckoff /play c:\glow\txt\fuckoff.txt 100ms
  27. n25=/unicorn /play c:\glow\txt\unicorn.txt 100ms
  28. n26=/kiss /play c:\glow\txt\kiss.txt 100ms
  29. n27=/bighug /play c:\glow\txt\bighug.txt 100ms
  30. n28=/bye /play c:\glow\txt\bye.txt 100ms
  31. n29=/flip /play c:\glow\txt\flip.txt 100ms
  32. n30=/hi /play c:\glow\txt\hi.txt 100ms
  33. n31=/dragon /play c:\glow\txt\dragon.txt 100ms
  34. n32=/flowers /play c:\glow\txt\flowers.txt 100ms
  35. n33=/rabbit /play c:\glow\txt\rabbit.txt 100ms
  36. n34=/lion /play c:\glow\txt\lion.txt 100ms
  37. n35=/seahorse /play c:\glow\txt\seahorse.txt 100ms/as /enable #search | /set %search $$1 | /msg # %iD4 Address Search for string:  $+ * $+ %search $+ * $+  in  $+ # $+  | /who #
  38. n36=/smiley /play c:\glow\txt\smallfac.txt 100ms
  39. n37=/op /mode # +ooo $$1 $2 $3
  40. n38=/dop /mode # -ooo $$1 $2 $3
  41. n39=/j /join #$$1
  42. n40=/p /part # 
  43. n41=/n /names #$$1
  44. n42=/w /whois $$1
  45. n43=/k /kick # $$1
  46. n44=/q /query $$1
  47. n45=/hop /part # | /join #$$1
  48. n46=/send /dcc send $1 $2
  49. n47=/chat /dcc chat $1
  50. n48=/ping /ctcp $$1 ping
  51. n49=/page /ctcp $$1 PAGE
  52. n50=/ver /me is using (393*Gl⌠w9╤3dσ3rk*393) (v1.1 1997⌐) Http://naz.com/personal/glow
  53. n51=/rev {
  54. n52=  unset %final
  55. n53=  unset %endreverse
  56. n54=  set %sections $token(0,32,*1)
  57. n55=  :revstart
  58. n56=  if (%sections == 0) goto revend  
  59. n57=  set %reverseme $token(%sections,32,*1)
  60. n58=  set %length $len(%reverseme)
  61. n59=  set %backtext $mid(%length,1,%reverseme)  
  62. n60=  dec %length 1  
  63. n61=  :backstart
  64. n62=  if (%length == 0) goto backend
  65. n63=  set %tempback $mid(%length,1,%reverseme)
  66. n64=  set %backtext %backtext $+ %tempback 
  67. n65=  dec %length 1
  68. n66=  goto backstart
  69. n67=  :backend
  70. n68=  set %reversed_text %backtext
  71. n69=  set %temp %reversed_text
  72. n70=  set %final %final %temp
  73. n71=  dec %sections 1
  74. n72=  goto revstart  
  75. n73=  :revend
  76. n74=  set %endreverse %final
  77. n75=  say %final
  78. n76=}
  79. n77=/bct {
  80. n78=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  81. n79=  :loop
  82. n80=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  83. n81=  inc %p
  84. n82=  if ( $mid(%p,1,%i) != á) { inc %c }
  85. n83=  if ( %c > 6 ) { set %c 1 }
  86. n84=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  87. n85=  say %o
  88. n86=  unset %o %i %p %c
  89. n87=}
  90. n88=/ct { 
  91. n89=  unset %ctext*
  92. n90=  set %loop 0
  93. n91=  set %ctext *1
  94. n92=  :1
  95. n93=  inc %loop 1
  96. n94=  if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 }
  97. n95=  %ctext1 =  $+ $rand(1,13) $+ $mid(%loop,1,%ctext)
  98. n96=  if (%ctext2 == $null) { %ctext2 = %ctext1 }
  99. n97=  else { %ctext2 = %ctext2 $+ %ctext1 }
  100. n98=  ;echo -s .. %ctext4
  101. n99=  if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt }
  102. n100=  goto 1
  103. n101=}
  104. n102====color text end=====
  105. n103=count {
  106. n104=  echo 4 There are a total of $nick(0,#) people in this channel. [ $+ $opnick(0,#) OP'ed/ $+ $nopnick(0,#) Not OP'ed]
  107. n105=}
  108. n106=;mass commands
  109. n107=/masskickall {
  110. n108=  set %k 0
  111. n109=  :start
  112. n110=  inc %k 1
  113. n111=  if ($nick(%k,#) = $me) { goto start }
  114. n112=  if ($nick(%k,#) = $null) { /halt } 
  115. n113=  kick # $nick(%k,#) %iD4 MASS ALL KICK
  116. n114=  goto start
  117. n115=}
  118. n116=/masskicknop {
  119. n117=  set %k 0
  120. n118=  :start
  121. n119=  inc %k 1
  122. n120=  if ($nopnick(%k,#) = $me) { goto start }
  123. n121=  if ($nopnick(%k,#) = $null) { /halt } 
  124. n122=  kick # $nopnick(%k,#) %iD4 MASS NON-OP KICK
  125. n123=  goto start
  126. n124=}
  127. n125=/masskicknop {
  128. n126=  set %k 0
  129. n127=  :start
  130. n128=  inc %k 1
  131. n129=  if ($opnick(%k,#) = $me) { goto start }
  132. n130=  if ($opnick(%k,#) = $null) { /halt } 
  133. n131=  kick # $opnick(%k,#) %iD4 MASS OP KICK
  134. n132=  goto start
  135. n133=}
  136. n134=/massvoice {
  137. n135=  %i = 0
  138. n136=  %needops = ""
  139. n137=  :op
  140. n138=  inc %i
  141. n139=  if ($nick(%i,#) = $me) { goto op }
  142. n140=  if ($nick(%I,#) = $null) { if ($len(%needops) > 0) mode # +vvvv %needops | halt }
  143. n141=  %needops = %needops $nick(%i,#)
  144. n142=  if (4 // %i) { mode # +vvvv %needops | %needops = "" }
  145. n143=  goto op
  146. n144=  :done
  147. n145=  echo DONE
  148. n146=}
  149. n147=/massdevoice {
  150. n148=  %i = 0
  151. n149=  %needops = ""
  152. n150=  :op
  153. n151=  inc %i
  154. n152=  if ($nick(%i,#) = $me) { goto op }
  155. n153=  if ($nick(%I,#) = $null) { if ($len(%needops) > 0) mode # -vvvv %needops | halt }
  156. n154=  %needops = %needops $nick(%i,#)
  157. n155=  if (4 // %i) { mode # -vvvv %needops | %needops = "" }
  158. n156=  goto op
  159. n157=  :done
  160. n158=  echo DONE
  161. n159=}
  162. n160=/massop {
  163. n161=  %i = 0
  164. n162=  %needops = ""
  165. n163=  :op
  166. n164=  inc %i
  167. n165=  if ($nick(%i,#) = $me) { goto op }
  168. n166=  if ($nick(%I,#) = $null) { if ($len(%needops) > 0) mode # +oooo %needops | halt }
  169. n167=  %needops = %needops $nick(%i,#)
  170. n168=  if (4 // %i) { mode # +oooo %needops | %needops = "" }
  171. n169=  goto op
  172. n170=  :done
  173. n171=  echo DONE
  174. n172=}
  175. n173=/massdeop {
  176. n174=  %i = 0
  177. n175=  %needops = ""
  178. n176=  :op
  179. n177=  inc %i
  180. n178=  if ($nick(%i,#) = $me) { goto op }
  181. n179=  if ($nick(%I,#) = $null) { if ($len(%needops) > 0) mode # -oooo %needops | halt }
  182. n180=  %needops = %needops $nick(%i,#)
  183. n181=  if (4 // %i) { mode # -oooo %needops | %needops = "" }
  184. n182=  goto op
  185. n183=  :done
  186. n184=  echo DONE
  187. n185=}
  188. n186=/capsdetect {
  189. n187=  set -q %x 1
  190. n188=  set -q %text $len($parms)
  191. n189=  if %text < 15 { goto end } 
  192. n190=  :letters
  193. n191=  if %x > %text { goto kicker } 
  194. n192=  if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters } 
  195. n193=  else { goto end } 
  196. n194=  :kicker
  197. n195=  ban -u8 $chan $nick 3
  198. n196=  notice $nick CAPS detected, Please do not type in all capitol letters. This is considered to be rude on Irc. (this ban will be removed momentarily) 
  199. n197=  onotice $chan [ops] capslock warning sent to $nick 
  200. n198=  echo 5 $active [ops] capslock warning sent to $nick 
  201. n199=  :end
  202. n200=}
  203. n201=/onquit {
  204. n202=  .timer750 1 30 /unset %split
  205. n203=  .timer751 1 30 /unset %splitlist
  206. n204=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  207. n205=    set %split $upper($gettok( $parm2,1,46))
  208. n206=    set %split2 $upper($gettok($parm1,1,46))
  209. n207=    if %split !isin %splitlist {
  210. n208=      set %splitlist %splitlist %split
  211. n209=      echo 7 Server $timestamp : [RM] : Detected NETSPLIT: %split <-> %split2
  212. n210=    }
  213. n211=  }
  214. n212=}
  215.